04700	TRTUN
04800	TEMPO/108*;
04900	TRPT ; DURATION WILL BE DEFINED IN P2
05000	P2 RHY/8/16//8/16 X 6/4/8//2/FINE*;
05100	P3 NOTES/G4///C5//D/C/B4/A/G/BF/A/D5/AF4*;
05200	P4 2000/P5 F1/P10 SUBR;
05300	P9 NUM/1 X 4/10/11//12/1//10/12/1/*;
05400	            ;1=NOTE=ENV. 10=ATTACK NOTE, 11=STEADY, 12=DECAY
05500	P6 .5/P7 8/P8 P3/END;
05600	
05700	ENV INV; USES 'INVISIBLE' FEATURE.
05800	P2 REP; REPEATS P2 OF TRPT
05900	P3 "SEG(F1);"/P7 1/P9 1/P11 1;
06000	P4 0/P5 1/P6 1/P8 .6/P10 .6;
06100	P13 SUBR 100; SEVERAL PARAMS ARE SET IN SUBR.
06200	END;
06210	INSERT -1;
06220	SRATE←25000;MAG←512/SRATE;SPEED←2;
06300	RUN;